Profile of (eval 264)[Sub/Quote.pm:3]

Filename	(eval 264)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 144 statements in 504µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
10	1	1	180µs	380µs	JSON::Schema::Modern::Document::_set_canonical_uri
1	1	1	15µs	43µs	JSON::Schema::Modern::Document::BEGIN@7
1	1	1	7µs	23µs	Method::Generate::Accessor::_Generated::BEGIN@39
1	1	1	6µs	6µs	Method::Generate::Accessor::_Generated::BEGIN@12.115

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	1µs			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
4	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
5	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
6					package JSON::Schema::Modern::Document;
7	2	63µs	2	71µs	# spent 43µs (15+28) within JSON::Schema::Modern::Document::BEGIN@7 which was called: # once (15µs+28µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 43µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7 # spent 28µs making 1 call to warnings::unimport
8					# spent 380µs (180+200) within JSON::Schema::Modern::Document::_set_canonical_uri which was called 10 times, avg 38µs/call: # 10 times (180µs+200µs) by JSON::Schema::Modern::Document::BUILD at line 149 of JSON/Schema/Modern/Document.pm, avg 38µs/call sub _set_canonical_uri {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 6µs within Method::Generate::Accessor::_Generated::BEGIN@12.115 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	4µs			%^H = (
16					);
17	1	91µs	1	6µs	} # spent 6µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.115
18					# END quote_sub PRELUDE
19	20	18µs			scalar do { my $value = do {
20	10	24µs			local $Method::Generate::Accessor::CurrentAttribute = {
21					init_arg => undef(),
22					name => "canonical_uri",
23					step => "coercion",
24					};
25	10	3µs			(my $_return),
26					(my $_error), (my $_old_error = $@);
27	10	7µs			(eval {
28	10	26µs	10	177µs	($@ = $_old_error), # spent 177µs making 10 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:39], avg 18µs/call
29					($_return =
30					$coerce_for_canonical_5furi->($_[1])),
31					1
32					} or
33					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
34	10	5µs			($@ = $_old_error),
35					(defined $_error and CORE::die $_error);
36	10	10µs			$_return;
37					}
38					;
39	42	225µs	32	62µs	# spent 23µs (7+16) within Method::Generate::Accessor::_Generated::BEGIN@39 which was called: # once (7µs+16µs) by Sub::Quote::_clean_eval at line 39 (do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }), # spent 23µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39 # spent 16µs making 1 call to warnings::unimport # spent 11µs making 10 calls to Mojo::URL::fragment, avg 1µs/call # spent 7µs making 10 calls to Scalar::Util::blessed, avg 700ns/call # spent 5µs making 10 calls to UNIVERSAL::isa, avg 500ns/call
40					($_[0]->{"canonical_uri"} = $value),
41	10	18µs			($_[0]->{"canonical_uri"}),
42					} }
43	1	1µs			$$_UNQUOTED = \&_set_canonical_uri;
44					}
45	1	6µs			1;
46
47					;